
vars_rename <- function(x){
  out <- case_when(x=='dv_ease' ~ 'Ease',
                   x=='dv_elections' ~ 'Electoral\nImpact',
                   x=='dv_likely' ~ 'Likelihood',
                   x=='dv_priority' ~ 'Priority',
                   x=='time' ~ "Time to Solve",
                   x=='solve_prob' ~ "Prob. of Solving",
                   x=='solu_traceeasy' ~ "Easy to Trace Solution",
                   x=='simplicitysimple' ~ 'Simple Solution',
                   x=='prob_traceeasy' ~ 'Easy to Trace Problem',
                   x=='cobenefitscosts' ~ 'Neg. Side Effect',
                   x=='dv_approval' ~ "State Leg.\nApproval",
                   x=='dv_importance' ~ "Importance",
                   x=='dv_index' ~ "Index")
  return(out)
}